home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Taifun / Taifun 099 (1989-05-15)(Ossowski, Stefan)(DE)(PD).zip / Taifun 099 (1989-05-15)(Ossowski, Stefan)(DE)(PD).adf / PCQ / Examples / ChopTest.p < prev    next >
Text File  |  1989-03-31  |  492b  |  27 lines

  1. Program Chop_Test;
  2.  
  3.     { This tests ChopCL, which is located in ChopCL.p
  4.       Read that file for more details }
  5.  
  6. type
  7.     argvtype = array [1..10] of string;
  8.  
  9. procedure ChopCL(var a : argvtype; var m : Integer);
  10.     forward;
  11.  
  12. var
  13.     argv : argvtype;
  14.     argc : Integer;
  15.     index : Integer;
  16.  
  17. begin
  18.     argc := 10;
  19.     ChopCL(argv, argc);
  20.     if argc = 0 then
  21.     writeln('There were no arguments.')
  22.     else
  23.     for index := 1 to argc do
  24.         writeln('Argument ', index, ' is : ', argv[index]);
  25. end.
  26.  
  27.